home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
cli
/
mx2src.arc
/
BITSTUFF.DEF
< prev
next >
Wrap
Text File
|
1989-01-05
|
812b
|
24 lines
DEFINITION MODULE BitStuff;
FROM SYSTEM IMPORT BYTE, WORD, LONGWORD;
PROCEDURE LAnd( op1, op2 : LONGWORD):LONGWORD;
PROCEDURE LOr( op1, op2 : LONGWORD):LONGWORD;
PROCEDURE LEor( op1, op2 : LONGWORD):LONGWORD;
PROCEDURE LShl(number : LONGWORD; numbits : CARDINAL):LONGWORD;
PROCEDURE LShr(number : LONGWORD; numbits : CARDINAL):LONGWORD;
PROCEDURE WAnd( op1, op2 : WORD):WORD;
PROCEDURE WOr( op1, op2 : WORD):WORD;
PROCEDURE WEor( op1, op2 : WORD):WORD;
PROCEDURE WShl(number : WORD; numbits : CARDINAL):WORD;
PROCEDURE WShr(number : WORD; numbits : CARDINAL):WORD;
PROCEDURE BAnd( op1, op2 : BYTE):BYTE;
PROCEDURE BOr( op1, op2 : BYTE):BYTE;
PROCEDURE BEor( op1, op2 : BYTE):BYTE;
PROCEDURE BShl(number : BYTE; numbits : CARDINAL):BYTE;
PROCEDURE BShr(number : BYTE; numbits : CARDINAL):BYTE;
END BitStuff.